home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / dmdmule.red < prev    next >
Text File  |  1989-08-03  |  20KB  |  1,146 lines
  1. ;  NOTE:  This is the complete version of Mule DNA, one of the '88
  2. ;    finalists.  A shortened version can be found in MULEDNA.RED.
  3.  
  4.      DAT 1588  ;This is Mule%dna, the entry of Douglas McDaniels.
  5.  
  6.      DAT 1337  ;The entry is presented in printed form as requested,
  7.      DAT 123   ;However, as a convenience the text given here is
  8.      SPL 0     ;repeated on the enclosed diskette in Mule%dna.asm
  9. START SPL 17         ;execution starts here!
  10.      CMP <-5    <-4  ;However, please use due caution to make sure that
  11.      MOV -3     @-6  ;the entry does conform to the printed entry, which
  12.      CMP <-7    <-6  ;is the official version of the entry, and please
  13.      MOV -5     @-7  ;insert any appropriate end and start statements ect.
  14.      DJN -4     -7   ;that are required by the particular assembler used
  15.      MOV #1589  -10  ;for the tournament.
  16.      MOV #168   -9   
  17.      MOV -12    <-12 ;This entry may need particular care when typed in,
  18.      MOV -13    <-13 ;since it is a complicated program.
  19.      MOV -14    <-14
  20.      DJN -3     -13
  21.      JMP -6
  22.      DAT 1674
  23.      DAT 1423
  24.      DAT 123
  25.      SPL 0
  26.      SPL 17
  27.      CMP <-5    <-4
  28.      MOV -3     @-6
  29.      CMP <-7    <-6
  30.      MOV -5     @-7
  31.      DJN -4     -7
  32.      MOV #1675  -10
  33.      MOV #168   -9
  34.      MOV -12    <-12
  35.      MOV -13    <-13
  36.      MOV -14    <-14
  37.      DJN -3     -13
  38.      JMP -6
  39.      DAT 1760
  40.      DAT 1509
  41.      DAT 123
  42.      SPL 0
  43.      SPL 17
  44.      CMP <-5    <-4
  45.      MOV -3     @-6
  46.      CMP <-7    <-6
  47.      MOV -5     @-7
  48.      DJN -4     -7
  49.      MOV #1761  -10
  50.      MOV #168   -9
  51.      MOV -12    <-12
  52.      MOV -13    <-13
  53.      MOV -14    <-14
  54.      DJN -3     -13
  55.      JMP -6
  56.      DAT 1846
  57.  
  58.      DAT 1595
  59.      DAT 123
  60.      SPL 0
  61.      SPL 17
  62.      CMP <-5    <-4
  63.      MOV -3     @-6
  64.      CMP <-7    <-6
  65.      MOV -5     @-7
  66.      DJN -4     -7
  67.      MOV #1847  -10
  68.      MOV #168   -9
  69.      MOV -12    <-12
  70.      MOV -13    <-13
  71.      MOV -14    <-14
  72.      DJN -3     -13
  73.      JMP -6
  74.      DAT 1932
  75.      DAT 1681
  76.      DAT 123
  77.      SPL 0
  78.      SPL 17
  79.      CMP <-5    <-4
  80.      MOV -3     @-6
  81.      CMP <-7    <-6
  82.      MOV -5     @-7
  83.      DJN -4     -7
  84.      MOV #1933  -10
  85.      MOV #168   -9
  86.      MOV -12    <-12
  87.      MOV -13    <-13
  88.      MOV -14    <-14
  89.      DJN -3     -13
  90.      JMP -6
  91.      DAT 2018
  92.      DAT 1767
  93.      DAT 123
  94.      SPL 0
  95.  
  96.      SPL 17
  97.      CMP <-5    <-4
  98.      MOV -3     @-6
  99.      CMP <-7    <-6
  100.      MOV -5     @-7
  101.      DJN -4     -7
  102.      MOV #2019  -10
  103.      MOV #168   -9
  104.      MOV -12    <-12
  105.      MOV -13    <-13
  106.      MOV -14    <-14
  107.      DJN -3     -13
  108.      JMP -6
  109.      DAT 2104
  110.      DAT 1853
  111.  
  112.      DAT 123
  113.      SPL 0
  114.      SPL 17
  115.      CMP <-5    <-4
  116.      MOV -3     @-6
  117.  
  118.      CMP <-7    <-6
  119.      MOV -5     @-7
  120.      DJN -4     -7
  121.      MOV #2105  -10
  122.      MOV #168   -9
  123.      MOV -12    <-12
  124.      MOV -13    <-13
  125.      MOV -14    <-14
  126.      DJN -3     -13
  127.      JMP -6
  128.      DAT 2190
  129.      DAT 1939
  130.      DAT 123
  131.      SPL 0
  132.      SPL 17
  133.      CMP <-5    <-4
  134.      MOV -3     @-6
  135.      CMP <-7    <-6
  136.      MOV -5     @-7
  137.      DJN -4     -7
  138.      MOV #2191  -10
  139.      MOV #168   -9
  140.      MOV -12    <-12
  141.      MOV -13    <-13
  142.      MOV -14    <-14
  143.      DJN -3     -13
  144.      JMP -6
  145.      DAT 2276
  146.      DAT 2025
  147.  
  148.      DAT 123
  149.      SPL 0
  150.      SPL 17
  151.      CMP <-5    <-4
  152.      MOV -3     @-6
  153.      CMP <-7    <-6
  154.      MOV -5     @-7
  155.      DJN -4     -7
  156.      MOV #2277  -10
  157.      MOV #168   -9
  158.      MOV -12    <-12
  159.      MOV -13    <-13
  160.      MOV -14    <-14
  161.      DJN -3     -13
  162.      JMP -6
  163.      DAT 2362
  164.      DAT 2111
  165.      DAT 123
  166.  
  167.      SPL 0
  168.      SPL 17
  169.      CMP <-5    <-4
  170.      MOV -3     @-6
  171.      CMP <-7    <-6
  172.      MOV -5     @-7
  173.      DJN -4     -7
  174.      MOV #2363  -10
  175.      MOV #168   -9
  176.      MOV -12    <-12
  177.      MOV -13    <-13
  178.      MOV -14    <-14
  179.      DJN -3     -13
  180.      JMP -6
  181.      DAT 2448
  182.      DAT 2197
  183.      DAT 123
  184.      SPL 0
  185.      SPL 17
  186.      CMP <-5    <-4
  187.      MOV -3     @-6
  188.      CMP <-7    <-6
  189.      MOV -5     @-7
  190.      DJN -4     -7
  191.      MOV #2449  -10
  192.      MOV #168   -9
  193.      MOV -12    <-12
  194.      MOV -13    <-13
  195.      MOV -14    <-14
  196.      DJN -3     -13
  197.      JMP -6
  198.      DAT 2534
  199.      DAT 2283
  200.      DAT 123
  201.      SPL 0
  202.      SPL 17
  203.      CMP <-5    <-4
  204.      MOV -3     @-6
  205.      CMP <-7    <-6
  206.      MOV -5     @-7
  207.      DJN -4     -7
  208.      MOV #2535  -10
  209.      MOV #168   -9
  210.      MOV -12    <-12
  211.      MOV -13    <-13
  212.      MOV -14    <-14
  213.      DJN -3     -13
  214.      JMP -6
  215.      DAT 2620
  216.      DAT 2369
  217.      DAT 123
  218.      SPL 0
  219.  
  220.      SPL 17
  221.      CMP <-5    <-4
  222.      MOV -3     @-6
  223.      CMP <-7    <-6
  224.      MOV -5     @-7
  225.      DJN -4     -7
  226.      MOV #2621  -10
  227.      MOV #168   -9
  228.      MOV -12    <-12
  229.      MOV -13    <-13
  230.      MOV -14    <-14
  231.      DJN -3     -13
  232.      JMP -6
  233.      DAT 2706
  234.      DAT 2455
  235.  
  236.      DAT 123
  237.      SPL 0
  238.      SPL 17
  239.      CMP <-5    <-4
  240.      MOV -3     @-6
  241.      CMP <-7    <-6
  242.      MOV -5     @-7
  243.      DJN -4     -7
  244.      MOV #2707  -10
  245.      MOV #168   -9
  246.      MOV -12    <-12
  247.      MOV -13    <-13
  248.      MOV -14    <-14
  249.      DJN -3     -13
  250.      JMP -6
  251.      DAT 2792
  252.      DAT 2541
  253.      DAT 123
  254.      SPL 0
  255.      SPL 17
  256.      CMP <-5    <-4
  257.      MOV -3     @-6
  258.      CMP <-7    <-6
  259.      MOV -5     @-7
  260.      DJN -4     -7
  261.      MOV #2793  -10
  262.      MOV #168   -9
  263.      MOV -12    <-12
  264.      MOV -13    <-13
  265.      MOV -14    <-14
  266.      DJN -3     -13
  267.      JMP -6
  268.      DAT 2878
  269.      DAT 2627
  270.      DAT 123
  271.      SPL 0
  272.      SPL 17
  273.  
  274.      CMP <-5    <-4
  275.      MOV -3     @-6
  276.      CMP <-7    <-6
  277.      MOV -5     @-7
  278.      DJN -4     -7
  279.      MOV #2879  -10
  280.      MOV #168   -9
  281.      MOV -12    <-12
  282.      MOV -13    <-13
  283.      MOV -14    <-14
  284.      DJN -3     -13
  285.      JMP -6
  286.  
  287.      DAT 2964
  288.      DAT 2713
  289.      DAT 123
  290.      SPL 0
  291.      SPL 17
  292.      CMP <-5    <-4
  293.      MOV -3     @-6
  294.      CMP <-7    <-6
  295.      MOV -5     @-7
  296.      DJN -4     -7
  297.      MOV #2965  -10
  298.      MOV #168   -9
  299.      MOV -12    <-12
  300.      MOV -13    <-13
  301.      MOV -14    <-14
  302.      DJN -3     -13
  303.      JMP -6
  304.      DAT 3050
  305.      DAT 2799
  306.      DAT 123
  307.      SPL 0
  308.      SPL 17
  309.      CMP <-5    <-4
  310.      MOV -3     @-6
  311.      CMP <-7    <-6
  312.      MOV -5     @-7
  313.      DJN -4     -7
  314.  
  315.      MOV #3051  -10
  316.      MOV #168   -9
  317.      MOV -12    <-12
  318.      MOV -13    <-13
  319.      MOV -14    <-14
  320.      DJN -3     -13
  321.      JMP -6
  322.      DAT 3136
  323.      DAT 2885
  324.      DAT 123
  325.      SPL 0
  326.      SPL 17
  327.      CMP <-5    <-4
  328.  
  329.      MOV -3     @-6
  330.      CMP <-7    <-6
  331.      MOV -5     @-7
  332.      DJN -4     -7
  333.      MOV #3137  -10
  334.      MOV #168   -9
  335.      MOV -12    <-12
  336.      MOV -13    <-13
  337.  
  338.      MOV -14    <-14
  339.      DJN -3     -13
  340.      JMP -6
  341.      DAT 3222
  342.      DAT 2971
  343.      DAT 123
  344.      SPL 0
  345.      SPL 17
  346.      CMP <-5    <-4
  347.      MOV -3     @-6
  348.      CMP <-7    <-6
  349.      MOV -5     @-7
  350.      DJN -4     -7
  351.      MOV #3223  -10
  352.      MOV #168   -9
  353.      MOV -12    <-12
  354.      MOV -13    <-13
  355.      MOV -14    <-14
  356.      DJN -3     -13
  357.      JMP -6
  358.      DAT 3308
  359.      DAT 3057
  360.      DAT 123
  361.      SPL 0
  362.      SPL 17
  363.      CMP <-5    <-4
  364.      MOV -3     @-6
  365.      CMP <-7    <-6
  366.      MOV -5     @-7
  367.      DJN -4     -7
  368.      MOV #3309  -10
  369.      MOV #168   -9
  370.      MOV -12    <-12
  371.      MOV -13    <-13
  372.      MOV -14    <-14
  373.      DJN -3     -13
  374.      JMP -6
  375.      DAT 3394
  376.  
  377.      DAT 3143
  378.      DAT 123
  379.      SPL 0
  380.      SPL 17
  381.      CMP <-5    <-4
  382.      MOV -3     @-6
  383.  
  384.      CMP <-7    <-6
  385.  
  386.      MOV -5     @-7
  387.      DJN -4     -7
  388.      MOV #3395  -10
  389.      MOV #168   -9
  390.      MOV -12    <-12
  391.      MOV -13    <-13
  392.      MOV -14    <-14
  393.      DJN -3     -13
  394.      JMP -6
  395.      DAT 3480
  396.      DAT 3229
  397.      DAT 123
  398.      SPL 0
  399.      SPL 17
  400.      CMP <-5    <-4
  401.      MOV -3     @-6
  402.      CMP <-7    <-6
  403.      MOV -5     @-7
  404.      DJN -4     -7
  405.      MOV #3481  -10
  406.      MOV #168   -9
  407.      MOV -12    <-12
  408.      MOV -13    <-13
  409.      MOV -14    <-14
  410.      DJN -3     -13
  411.      JMP -6
  412.      DAT 3566
  413.      DAT 3315
  414.      DAT 123
  415.      SPL 0
  416.      SPL 17
  417.      CMP <-5    <-4
  418.      MOV -3     @-6
  419.      CMP <-7    <-6
  420.      MOV -5     @-7
  421.      DJN -4     -7
  422.      MOV #3567  -10
  423.      MOV #168   -9
  424.      MOV -12    <-12
  425.      MOV -13    <-13
  426.      MOV -14    <-14
  427.      DJN -3     -13
  428.      JMP -6
  429.      DAT 3652
  430.      DAT 3401
  431.      DAT 123
  432.      SPL 0
  433.      SPL 17
  434.      CMP <-5    <-4
  435.      MOV -3     @-6
  436.      CMP <-7    <-6
  437.  
  438.      MOV -5     @-7
  439.      DJN -4     -7
  440.      MOV #3653  -10
  441.      MOV #168   -9
  442.      MOV -12    <-12
  443.      MOV -13    <-13
  444.      MOV -14    <-14
  445.      DJN -3     -13
  446.      JMP -6
  447.      DAT 3738
  448.      DAT 3487
  449.      DAT 123
  450.      SPL 0
  451.      SPL 17
  452.      CMP <-5    <-4
  453.      MOV -3     @-6
  454.      CMP <-7    <-6
  455.      MOV -5     @-7
  456.      DJN -4     -7
  457.      MOV #3739  -10
  458.      MOV #168   -9
  459.  
  460.      MOV -12    <-12
  461.      MOV -13    <-13
  462.      MOV -14    <-14
  463.      DJN -3     -13
  464.      JMP -6
  465.      DAT 3824
  466.      DAT 3573
  467.      DAT 123
  468.      SPL 0
  469.      SPL 17
  470.      CMP <-5    <-4
  471.      MOV -3     @-6
  472.      CMP <-7    <-6
  473.      MOV -5     @-7
  474.  
  475.      DJN -4     -7
  476.      MOV #3825  -10
  477.      MOV #168   -9
  478.      MOV -12    <-12
  479.      MOV -13    <-13
  480.      MOV -14    <-14
  481.      DJN -3     -13
  482.  
  483.      JMP -6
  484.      DAT 3910
  485.      DAT 3659
  486.      DAT 123
  487.      SPL 0
  488.      SPL 17
  489.      CMP <-5    <-4
  490.      MOV -3     @-6
  491.      CMP <-7    <-6
  492.      MOV -5     @-7
  493.  
  494.      DJN -4     -7
  495.      MOV #3911  -10
  496.      MOV #168   -9
  497.      MOV -12    <-12
  498.      MOV -13    <-13
  499.      MOV -14    <-14
  500.      DJN -3     -13
  501.      JMP -6
  502.  
  503.      DAT 3996
  504.      DAT 3745
  505.      DAT 123
  506.      SPL 0
  507.      SPL 17
  508.      CMP <-5    <-4
  509.      MOV -3     @-6
  510.      CMP <-7    <-6
  511.  
  512.      MOV -5     @-7
  513.      DJN -4     -7
  514.      MOV #3997  -10
  515.      MOV #168   -9
  516.      MOV -12    <-12
  517.      MOV -13    <-13
  518.      MOV -14    <-14
  519.  
  520.      DJN -3     -13
  521.      JMP -6
  522.      DAT 4082
  523.      DAT 3831
  524.      DAT 123
  525.      SPL 0
  526.      SPL 17
  527.      CMP <-5    <-4
  528.      MOV -3     @-6
  529.      CMP <-7    <-6
  530.      MOV -5     @-7
  531.      DJN -4     -7
  532.      MOV #4083  -10
  533.      MOV #168   -9
  534.      MOV -12    <-12
  535.      MOV -13    <-13
  536.      MOV -14    <-14
  537.      DJN -3     -13
  538.      JMP -6
  539.      DAT 4168
  540.      DAT 3917
  541.      DAT 123
  542.      SPL 0
  543.      SPL 17
  544.      CMP <-5    <-4
  545.      MOV -3     @-6
  546.      CMP <-7    <-6
  547.      MOV -5     @-7
  548.      DJN -4     -7
  549.  
  550.      MOV #4169  -10
  551.      MOV #168   -9
  552.      MOV -12    <-12
  553.      MOV -13    <-13
  554.      MOV -14    <-14
  555.      DJN -3     -13
  556.      JMP -6
  557.      DAT 4254
  558.      DAT 4003
  559.      DAT 123
  560.  
  561.      SPL 0
  562.      SPL 17
  563.      CMP <-5    <-4
  564.      MOV -3     @-6
  565.      CMP <-7    <-6
  566.      MOV -5     @-7
  567.      DJN -4     -7
  568.      MOV #4255  -10
  569.      MOV #168   -9
  570.      MOV -12    <-12
  571.      MOV -13    <-13
  572.      MOV -14    <-14
  573.      DJN -3     -13
  574.      JMP -6
  575.      DAT 4340
  576.      DAT 4089
  577.      DAT 123
  578.      SPL 0
  579.      SPL 17
  580.      CMP <-5    <-4
  581.      MOV -3     @-6
  582.      CMP <-7    <-6
  583.      MOV -5     @-7
  584.  
  585.      DJN -4     -7
  586.      MOV #4341  -10
  587.      MOV #168   -9
  588.      MOV -12    <-12
  589.      MOV -13    <-13
  590.      MOV -14    <-14
  591.      DJN -3     -13
  592.      JMP -6
  593.      DAT 4426
  594.      DAT 4175
  595.      DAT 123
  596.      SPL 0
  597.      SPL 17
  598.      CMP <-5    <-4
  599.      MOV -3     @-6
  600.      CMP <-7    <-6
  601.      MOV -5     @-7
  602.      DJN -4     -7
  603.      MOV #4427  -10
  604.  
  605.      MOV #168   -9
  606.      MOV -12    <-12
  607.      MOV -13    <-13
  608.      MOV -14    <-14
  609.      DJN -3     -13
  610.      JMP -6
  611.      DAT 4512
  612.      DAT 4261
  613.      DAT 123
  614.      SPL 0
  615.      SPL 17
  616.      CMP <-5    <-4
  617.      MOV -3     @-6
  618.      CMP <-7    <-6
  619.      MOV -5     @-7
  620.  
  621.      DJN -4     -7
  622.      MOV #4513  -10
  623.      MOV #168   -9
  624.      MOV -12    <-12
  625.      MOV -13    <-13
  626.      MOV -14    <-14
  627.      DJN -3     -13
  628.      JMP -6
  629.      DAT 4598
  630.      DAT 4347
  631.      DAT 123
  632.      SPL 0
  633.      SPL 17
  634.      CMP <-5    <-4
  635.      MOV -3     @-6
  636.      CMP <-7    <-6
  637.      MOV -5     @-7
  638.      DJN -4     -7
  639.      MOV #4599  -10
  640.      MOV #168   -9
  641.      MOV -12    <-12
  642.      MOV -13    <-13
  643.      MOV -14    <-14
  644.      DJN -3     -13
  645.      JMP -6
  646.      DAT 4684
  647.      DAT 4433
  648.      DAT 123
  649.      SPL 0
  650.      SPL 17
  651.      CMP <-5    <-4
  652.      MOV -3     @-6
  653.      CMP <-7    <-6
  654.      MOV -5     @-7
  655.      DJN -4     -7
  656.      MOV #4685  -10
  657.      MOV #168   -9
  658.  
  659.      MOV -12    <-12
  660.      MOV -13    <-13
  661.      MOV -14    <-14
  662.      DJN -3     -13
  663.      JMP -6
  664.      DAT 4770
  665.      DAT 4519
  666.      DAT 123
  667.      SPL 0
  668.      SPL 17
  669.      CMP <-5    <-4
  670.      MOV -3     @-6
  671.      CMP <-7    <-6
  672.      MOV -5     @-7
  673.      DJN -4     -7
  674.      MOV #4771  -10
  675.      MOV #168   -9
  676.      MOV -12    <-12
  677.      MOV -13    <-13
  678.      MOV -14    <-14
  679.      DJN -3     -13
  680.      JMP -6
  681.      DAT 4856
  682.      DAT 4605
  683.      DAT 123
  684.      SPL 0
  685.      SPL 17
  686.      CMP <-5    <-4
  687.      MOV -3     @-6
  688.      CMP <-7    <-6
  689.      MOV -5     @-7
  690.      DJN -4     -7
  691.      MOV #4857  -10
  692.      MOV #168   -9
  693.      MOV -12    <-12
  694.      MOV -13    <-13
  695.      MOV -14    <-14
  696.      DJN -3     -13
  697.  
  698.      JMP -6
  699.      DAT 4942
  700.      DAT 4691
  701.      DAT 123
  702.      SPL 0
  703.  
  704.      SPL 17
  705.      CMP <-5    <-4
  706.      MOV -3     @-6
  707.      CMP <-7    <-6
  708.      MOV -5     @-7
  709.      DJN -4     -7
  710.      MOV #4943  -10
  711.      MOV #168   -9
  712.      MOV -12    <-12
  713.  
  714.      MOV -13    <-13
  715.      MOV -14    <-14
  716.      DJN -3     -13
  717.      JMP -6
  718.      DAT 5028
  719.  
  720.      DAT 4777
  721.      DAT 123
  722.      SPL 0
  723.      SPL 17
  724.      CMP <-5    <-4
  725.      MOV -3     @-6
  726.      CMP <-7    <-6
  727.      MOV -5     @-7
  728.      DJN -4     -7
  729.      MOV #5029  -10
  730.      MOV #168   -9
  731.      MOV -12    <-12
  732.      MOV -13    <-13
  733.      MOV -14    <-14
  734.      DJN -3     -13
  735.      JMP -6
  736.      DAT 5114
  737.      DAT 4863
  738.      DAT 123
  739.      SPL 0
  740.  
  741.      SPL 17
  742.      CMP <-5    <-4
  743.      MOV -3     @-6
  744.      CMP <-7    <-6
  745.      MOV -5     @-7
  746.      DJN -4     -7
  747.      MOV #5115  -10
  748.      MOV #168   -9
  749.      MOV -12    <-12
  750.      MOV -13    <-13
  751.      MOV -14    <-14
  752.      DJN -3     -13
  753.  
  754.      JMP -6
  755.      DAT 5200
  756.      DAT 4949
  757.      DAT 123
  758.      SPL 0
  759.      SPL 17
  760.      CMP <-5    <-4
  761.      MOV -3     @-6
  762.      CMP <-7    <-6
  763.      MOV -5     @-7
  764.      DJN -4     -7
  765.      MOV #5201  -10
  766.  
  767.      MOV #168   -9
  768.      MOV -12    <-12
  769.      MOV -13    <-13
  770.  
  771.      MOV -14    <-14
  772.      DJN -3     -13
  773.      JMP -6
  774.      DAT 5286
  775.      DAT 5035
  776.      DAT 123
  777.      SPL 0
  778.      SPL 17
  779.      CMP <-5    <-4
  780.      MOV -3     @-6
  781.      CMP <-7    <-6
  782.      MOV -5     @-7
  783.      DJN -4     -7
  784.      MOV #5287  -10
  785.      MOV #168   -9
  786.      MOV -12    <-12
  787.      MOV -13    <-13
  788.      MOV -14    <-14
  789.  
  790.      DJN -3     -13
  791.      JMP -6
  792.      DAT 5372
  793.      DAT 5121
  794.      DAT 123
  795.      SPL 0
  796.      SPL 17
  797.      CMP <-5    <-4
  798.      MOV -3     @-6
  799.      CMP <-7    <-6
  800.      MOV -5     @-7
  801.      DJN -4     -7
  802.      MOV #5373  -10
  803.      MOV #168   -9
  804.      MOV -12    <-12
  805.      MOV -13    <-13
  806.      MOV -14    <-14
  807.      DJN -3     -13
  808.      JMP -6
  809.      DAT 5458
  810.      DAT 5207
  811.      DAT 123
  812.      SPL 0
  813.      SPL 17
  814.      CMP <-5    <-4
  815.      MOV -3     @-6
  816.      CMP <-7    <-6
  817.      MOV -5     @-7
  818.      DJN -4     -7
  819.      MOV #5459  -10
  820.      MOV #168   -9
  821.      MOV -12    <-12
  822.      MOV -13    <-13
  823.      MOV -14    <-14
  824.  
  825.      DJN -3     -13
  826.      JMP -6
  827.      DAT 5544
  828.      DAT 5293
  829.      DAT 123
  830.      SPL 0
  831.      SPL 17
  832.      CMP <-5    <-4
  833.      MOV -3     @-6
  834.      CMP <-7    <-6
  835.      MOV -5     @-7
  836.      DJN -4     -7
  837.      MOV #5545  -10
  838.      MOV #168   -9
  839.      MOV -12    <-12
  840.      MOV -13    <-13
  841.      MOV -14    <-14
  842.      DJN -3     -13
  843.      JMP -6
  844.      DAT 5630
  845.      DAT 5379
  846.      DAT 123
  847.      SPL 0
  848.      SPL 17
  849.      CMP <-5    <-4
  850.      MOV -3     @-6
  851.      CMP <-7    <-6
  852.      MOV -5     @-7
  853.      DJN -4     -7
  854.      MOV #5631  -10
  855.      MOV #168   -9
  856.      MOV -12    <-12
  857.      MOV -13    <-13
  858.      MOV -14    <-14
  859.      DJN -3     -13
  860.      JMP -6
  861.      DAT 5716
  862.      DAT 5465
  863.      DAT 123
  864.      SPL 0
  865.      SPL 17
  866.      CMP <-5    <-4
  867.      MOV -3     @-6
  868.      CMP <-7    <-6
  869.      MOV -5     @-7
  870.      DJN -4     -7
  871.      MOV #5717  -10
  872.      MOV #168   -9
  873.      MOV -12    <-12
  874.      MOV -13    <-13
  875.      MOV -14    <-14
  876.      DJN -3     -13
  877.  
  878.      JMP -6
  879.      DAT 5802
  880.      DAT 5551
  881.      DAT 123
  882.      SPL 0
  883.      SPL 17
  884.      CMP <-5    <-4
  885.      MOV -3     @-6
  886.      CMP <-7    <-6
  887.      MOV -5     @-7
  888.      DJN -4     -7
  889.      MOV #5803  -10
  890.      MOV #168   -9
  891.      MOV -12    <-12
  892.      MOV -13    <-13
  893.  
  894.      MOV -14    <-14
  895.      DJN -3     -13
  896.      JMP -6
  897.      DAT 5888
  898.      DAT 5637
  899.      DAT 123
  900.      SPL 0
  901.      SPL 17
  902.      CMP <-5    <-4
  903.      MOV -3     @-6
  904.      CMP <-7    <-6
  905.      MOV -5     @-7
  906.      DJN -4     -7
  907.      MOV #5889  -10
  908.      MOV #168   -9
  909.      MOV -12    <-12
  910.      MOV -13    <-13
  911.      MOV -14    <-14
  912.      DJN -3     -13
  913.      JMP -6
  914.      DAT 5974
  915.      DAT 5723
  916.      DAT 123
  917.      SPL 0
  918.      SPL 17
  919.      CMP <-5    <-4
  920.      MOV -3     @-6
  921.      CMP <-7    <-6
  922.      MOV -5     @-7
  923.      DJN -4     -7
  924.      MOV #5975  -10
  925.      MOV #168   -9
  926.      MOV -12    <-12
  927.      MOV -13    <-13
  928.      MOV -14    <-14
  929.      DJN -3     -13
  930.      JMP -6
  931.  
  932.      DAT 6060
  933.      DAT 5809
  934.      DAT 123
  935.      SPL 0
  936.      SPL 17
  937.      CMP <-5    <-4
  938.      MOV -3     @-6
  939.      CMP <-7    <-6
  940.      MOV -5     @-7
  941.      DJN -4     -7
  942.      MOV #6061  -10
  943.      MOV #168   -9
  944.      MOV -12    <-12
  945.      MOV -13    <-13
  946.      MOV -14    <-14
  947.      DJN -3     -13
  948.      JMP -6
  949.      DAT 6146
  950.      DAT 5895
  951.      DAT 123
  952.      SPL 0
  953.      SPL 17
  954.      CMP <-5    <-4
  955.      MOV -3     @-6
  956.      CMP <-7    <-6
  957.      MOV -5     @-7
  958.      DJN -4     -7
  959.      MOV #6147  -10
  960.      MOV #168   -9
  961.      MOV -12    <-12
  962.      MOV -13    <-13
  963.      MOV -14    <-14
  964.      DJN -3     -13
  965.      JMP -6
  966.      DAT 6232
  967.      DAT 5981
  968.      DAT 123
  969.      SPL 0
  970.      SPL 17
  971.      CMP <-5    <-4
  972.      MOV -3     @-6
  973.      CMP <-7    <-6
  974.      MOV -5     @-7
  975.      DJN -4     -7
  976.      MOV #6233  -10
  977.      MOV #168   -9
  978.      MOV -12    <-12
  979.      MOV -13    <-13
  980.  
  981.      MOV -14    <-14
  982.      DJN -3     -13
  983.      JMP -6
  984.      DAT 6318
  985.  
  986.      DAT 6067
  987.      DAT 123
  988.      SPL 0
  989.      SPL 17
  990.      CMP <-5    <-4
  991.      MOV -3     @-6
  992.      CMP <-7    <-6
  993.      MOV -5     @-7
  994.      DJN -4     -7
  995.      MOV #6319  -10
  996.      MOV #168   -9
  997.      MOV -12    <-12
  998.      MOV -13    <-13
  999.      MOV -14    <-14
  1000.      DJN -3     -13
  1001.      JMP -6
  1002.      DAT 6404
  1003.      DAT 6153
  1004.      DAT 123
  1005.      SPL 0
  1006.      SPL 17
  1007.      CMP <-5    <-4
  1008.      MOV -3     @-6
  1009.      CMP <-7    <-6
  1010.      MOV -5     @-7
  1011.      DJN -4     -7
  1012.      MOV #6405  -10
  1013.      MOV #168   -9
  1014.      MOV -12    <-12
  1015.      MOV -13    <-13
  1016.      MOV -14    <-14
  1017.      DJN -3     -13
  1018.      JMP -6
  1019.      DAT 6490
  1020.      DAT 6239
  1021.      DAT 123
  1022.      SPL 0
  1023.      SPL 17
  1024.      CMP <-5    <-4
  1025.      MOV -3     @-6
  1026.      CMP <-7    <-6
  1027.      MOV -5     @-7
  1028.      DJN -4     -7
  1029.      MOV #6491  -10
  1030.      MOV #168   -9
  1031.      MOV -12    <-12
  1032.      MOV -13    <-13
  1033.      MOV -14    <-14
  1034.      DJN -3     -13
  1035.      JMP -6
  1036.      DAT 6576
  1037.      DAT 6325
  1038.  
  1039.      DAT 123
  1040.      SPL 0
  1041.      SPL 17
  1042.      CMP <-5    <-4
  1043.      MOV -3     @-6
  1044.      CMP <-7    <-6
  1045.      MOV -5     @-7
  1046.      DJN -4     -7
  1047.      MOV #6577  -10
  1048.      MOV #168   -9
  1049.      MOV -12    <-12
  1050.      MOV -13    <-13
  1051.      MOV -14    <-14
  1052.      DJN -3     -13
  1053.      JMP -6
  1054.      DAT 6662
  1055.      DAT 6411
  1056.      DAT 123
  1057.  
  1058.      SPL 0
  1059.      SPL 17
  1060.      CMP <-5    <-4
  1061.      MOV -3     @-6
  1062.      CMP <-7    <-6
  1063.      MOV -5     @-7
  1064.      DJN -4     -7
  1065.      MOV #6663  -10
  1066.      MOV #168   -9
  1067.      MOV -12    <-12
  1068.      MOV -13    <-13
  1069.      MOV -14    <-14
  1070.      DJN -3     -13
  1071.      JMP -6
  1072.      DAT 6748
  1073.      DAT 6497
  1074.      DAT 123
  1075.      SPL 0
  1076.      SPL 17
  1077.      CMP <-5    <-4
  1078.      MOV -3     @-6
  1079.      CMP <-7    <-6
  1080.      MOV -5     @-7
  1081.      DJN -4     -7
  1082.      MOV #6749  -10
  1083.      MOV #168   -9
  1084.      MOV -12    <-12
  1085.      MOV -13    <-13
  1086.      MOV -14    <-14
  1087.      DJN -3     -13
  1088.      JMP -6
  1089.      DAT 6834
  1090.      DAT 6583
  1091.      DAT 123
  1092.  
  1093.      SPL 0
  1094.      SPL 17
  1095.      CMP <-5    <-4
  1096.      MOV -3     @-6
  1097.      CMP <-7    <-6
  1098.      MOV -5     @-7
  1099.      DJN -4     -7
  1100.      MOV #6835  -10
  1101.      MOV #168   -9
  1102.      MOV -12    <-12
  1103.      MOV -13    <-13
  1104.      MOV -14    <-14
  1105.  
  1106.      DJN -3     -13
  1107.      JMP -6
  1108.      DAT 6920
  1109.      DAT 6669
  1110.      DAT 123
  1111.      SPL 0
  1112.      SPL 17
  1113.      CMP <-5    <-4
  1114.  
  1115.      MOV -3     @-6
  1116.      CMP <-7    <-6
  1117.      MOV -5     @-7
  1118.      DJN -4     -7
  1119.      MOV #6921  -10
  1120.      MOV #168   -9
  1121.      MOV -12    <-12
  1122.      MOV -13    <-13
  1123.      MOV -14    <-14
  1124.      DJN -3     -13
  1125.      JMP -6
  1126.      DAT 7006
  1127.  
  1128.      DAT 6755
  1129.      DAT 123
  1130.      SPL 0
  1131.      SPL 17
  1132.      CMP <-5    <-4
  1133.      MOV -3     @-6
  1134.      CMP <-7    <-6
  1135.      MOV -5     @-7
  1136.      DJN -4     -7
  1137.      MOV #7007  -10
  1138.      MOV #168   -9
  1139.      MOV -12    <-12
  1140.      MOV -13    <-13
  1141.      MOV -14    <-14
  1142.      DJN -3     -13
  1143.      JMP -6
  1144.      END  START
  1145.  
  1146.